<%
  ' Si el usuario no está conectado, redirigir a la página de inicio de sesión
  If Not Session("auth_granted") = "true" Then 
  	cadURL = "Login.asp"
	response.write "<script>window.open('"& cadURL & "','_top');</script>"
	Response.End
  End If 
%>
<!--#include file="Librerias/mssql-ds.dll" -->
<!--#include file="Librerias/security-ds.dll" -->
<!--#include file="Funciones/FuncionesGenerales.asp" -->
<link href="Estilos/EstilosPagina.css" rel="stylesheet" type="text/css">

<script language="javascript">
  function CargarActividades(vID, vGESTIONES){
    for (i=0;i<=vGESTIONES;i++){
      document.getElementById('celda'+i).style.backgroundColor='#FFFFFF';
    }
    window.open('FrameInsumos.asp?qIdentificador='+vID, 'frameINSUMOS');
  }
</script>

<%
'// Recuperar la gestion de trabajo
qGestion = Session("auth_granted_poa_gestion")
qIdentificador = request.querystring("qIdentificador")

sSQL = ""
sSQL = sSQL & " SELECT pope"& qGestion &"_id, pope"& qGestion &"_codigo, pope"& qGestion &"_producto, pope"& qGestion &"_objetivo, pope"& qGestion &"_ponderacion"
sSQL = sSQL & " FROM POperacion"& qGestion &""
sSQL = sSQL & " WHERE aper_id = "& qIdentificador &""
sSQL = sSQL & " ORDER BY pope"& qGestion &"_codigo "
PoperacionesArray = MatrixBD(sSQL, 1)
If VarType(PoperacionesArray) = 8  then
  QPoperaciones = -1
Else
  QPoperaciones = UBound(PoperacionesArray,2)	
End If
%>

<table width="100%" border="1" cellspacing="0" cellpadding="1" align="justify" bordercolor="#999999" style="border-collapse: collapse;" bgcolor="#FFFFFF">
  <% For og = 0 To QPoperaciones %>
  <tr id="celda<%=og%>">
    <td align="center">
      <input name="imagen" type="image" onclick="CargarActividades(<%=PoperacionesArray(0,og)%>, <%=QPoperaciones%>); document.getElementById('celda<%=og%>').style.backgroundColor='#FEE363';" src="Iconos/bullet_gray.png"></td>
    <td>&nbsp;&nbsp;<%=og+1%>&nbsp;&nbsp;</td>
    <td><%=PoperacionesArray(1,og)%></td>
    <td><%=PoperacionesArray(2,og)%></td>
    <td><%=PoperacionesArray(3,og)%></td>
  </tr>
  <% Next %>
</table>
